5 A=A+1:IFA=1THENLOAD"SUBSCRIBE FORM",8,1
10 POKE53280,1:POKE53281,1
11 PRINTCHR$(142)"[147][152]"
12 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
13 PRINT"  [221]-[221]-------------------------------[221]-[221]"
14 FORI=0TO8
15 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
16 PRINT"  [221] [221]"SPC(31)"[221] [221]"
17 NEXT
18 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
19 PRINT"  [221]-[221]-------------------------------[221]-[221]"
20 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
25 PRINT""TAB(10)"[152]LOADSTAR FORMS PRINTER"
26 PRINTTAB(10)"[152]-------- ----- -------"
30 PRINTTAB(8)"1) [151]PRINT SUBMISSION FORM"
40 PRINTTAB(8)"[152]2) [151]PRINT SUBSCRIPTION FORM"
50 PRINTTAB(8)"[152]3) [151]RETURN TO LOADSTAR":POKE198,.
55 PRINTTAB(8)"    [152]PRESS 1, 2 OR 3."
60 GETA$:IFA$<"1"ORA$>"3"THEN60
70 IFA$="2"THEN2000
80 IFA$="3"THEN60000
90 :
1000 GOSUB3000:IFNOT(OK)THEN10
1010 GOSUB4000:IF(AB)THEN10
1020 OPEN4,4,7:OPEN3,8,3,"SUBMISSION FORM":PRINT#4,"          ";
1030 FORI=.TO1:GET#3,A$:I=ST
1040 IFA$=CHR$(13)THENPRINT#4:PRINT#4,"          ";:GOTO1060
1050 PRINT#4,A$;
1060 NEXT:CLOSE3
1070 FORA=1TO7:PRINT#4:NEXT
1080 CLOSE4:GOTO10
1090 :
2000 GOSUB3000:IFNOT(OK)THEN10
2010 GOSUB4000:IF(AB)THEN10
2020 OPEN4,4,7:SYS51137,32768:PRINT#4
2030 CLOSE4:GOTO10
2040 :
3000 OPEN15,4,15:CLOSE15
3010 IFST=.THENOK=-1:RETURN
3020 OK=.
3030 PRINT"ERROR:  PRINTER NOT READY!"
3040 FORA=1TO2000:NEXT:RETURN
3050 :
4000 PRINT"SET PRINTER TO TOP OF PAPER."
4010 PRINT" PRESS SPACE TO CONTINUE OR P TO PRINT."
4020 A=PEEK(203):IFA<>60ANDA<>10THEN4020
4030 AB=.:IFA=10THENAB=-1
4040 RETURN
4050 :
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 PRINT"[147]"
60030 PRINT"[158]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
60040 PRINT"RUN"
60050 POKE631,13:POKE632,13:POKE198,2